home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 49 / Digital_Talk_49_2001-06-15_Digital_Talk_de_Side_A.d64 / katzenlauf 3_kah (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  906b  |  31 lines
  1. 1 q=peek(186):poke820,q:qa=peek(821):onqagoto3,4,8
  2. 2 b=53280:print"[147]":pokeb,0:pokeb+1,11:poke646,15:goto100
  3. 3 poke821,2:load"katzensprites01*",q,1
  4. 4 poke821,3:load"msbskatze01*",q,1
  5. 8 poke45,0:poke46,40:clr:goto110
  6. 9 qp=30:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  7. 11 q$="kht-bskatze":qv$="01":qt$=q$+qv$:qd$="200501":return
  8. 12 gosub11:print"g-a 8/9?[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  9. 69 lc=int(l/100):ll=l-(lc*100):forx=lctoll:poke781,x:sys59903:next:return
  10. 100 printtab(11)"[158]bildschirmkatze 01":printtab(12)"[155]2001  von kahate"
  11. 102 fori=0to1500:next
  12. 104 printtab(9)"[152]dateien werden geladen":printtab(14)"[144]bitte warten[152][145]"
  13. 109 poke821,1:goto1
  14. 110 l=720:gosub69:printtab(10)"[144]weiter mit  <return>[152]"
  15. 112 r$="":getr$:ifr$<>chr$(13)then112
  16. 150 l=724:gosub69
  17. 200 rem ---zufallsvorgaben---
  18. 210 z=rnd(-ti)
  19. 220 z1=int(rnd(1)*2)
  20. 230 z2=int(rnd(1)*15)
  21. 240 ifz1>0andz2>11then230
  22. 260 poke822,z1:poke823,z2
  23. 270 poke824,109:poke825,112
  24. 300 sys9728:rem ---prgstart---
  25. 400 i=0
  26. 402 r$="":getr$:ifr$=chr$(13)then410
  27. 404 ifr$=chr$(95)then999
  28. 406 i=i+1:on-(i>=200)goto410:goto402
  29. 410 goto150
  30. 999 poke198,0:poke821,0:end
  31.